home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / mawk10.zip / FPETEST2.AWK < prev    next >
Text File  |  1991-10-05  |  96b  |  6 lines
  1. BEGIN { 
  2.   x = 100
  3.   do { y = x ; x *= 1000 } while ( y != x )
  4.   print "loop terminated"
  5. }
  6.